use Switch;

# Auxillary subroutines
# {{{
sub getDataPart {
   my $parameter = shift;
   my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   
   switch($parameter) {
      case 'MONTH' {return $mon;}               #get month
      case 'YEAR' {return 1900 + $year;}        #get year
      else {print 'Function getData: invalid parameter!'; return 0;}
   }   
}
# }}}
# End of Subroutines

1;